
(define l1 (assoc (pair "ih" "hi") (pair 2 "two")))

(set l1 2 (quote bob))
(write l1)
